(custom-load-symbol): Verify that LOADED is a string.

diff --git a/lisp/custom.el b/lisp/custom.el
index c12f3bec2e789885e78c6f39ae46ea5a68137f6b..9f68eb59e39f49f440d87b403877a80bfbcb7be7 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -485,7 +485,8 @@ LOAD should be either a library file name, or a feature name."
              ;; if not necessary.
              ((let (found (regexp (regexp-quote load)))
                 (dolist (loaded load-history)
-                  (and (string-match regexp (car loaded))
+                  (and (stringp (car loaded))
+                       (string-match regexp (car loaded))
                        (eq (locate-library load) (car loaded))
                        (setq found t)))
                 found))